METHOD /scwm/if_ex_erp_int_conf~det_doctype.     
	 select single * into @data(ls_likp) from likp
        where vbeln = @is_header-deliv_numb.

        if ls_likp-ablad is not INITIAL.
          ev_doctype = 'ZULP'.
          export ablad from ls_likp-ablad to MEMORY ID 'ABLAD'.
        endif.
		
IF ev_doctype IS INITIAL. "Standard routine
    " initialize class attributes
    CLEAR: mv_doctype, mv_erpbskey, mv_erpdlvtype, mv_doccat.

    " keep data to be used for item type determination
    mv_erpbskey   = iv_erpbskey.
    mv_doccat     = iv_doccat.
    mv_erpdlvtype = is_header-dlv_type.

    " determine document type
    /scwm/cl_erp_int_conf=>select_doctype(
      EXPORTING
        iv_erpbskey          = iv_erpbskey
        iv_erpdlvtype        = is_header-dlv_type
        iv_initiator_process = is_header-initiator_process
      IMPORTING
        ev_doctype           = ev_doctype ).

  ENDIF.


* keep header data to be used for item type determination -------------*
  mv_doctype          = ev_doctype.
  mv_erpbskey         = iv_erpbskey.
  IF iv_doccat     = /scdl/if_dl_c=>sc_doccat_inb_dr.
    mv_erpdlvtype  = is_header-dlv_type.
  ELSEIF iv_doccat = /scdl/if_dl_c=>sc_doccat_out_dr.
    mv_erpdlvtype  = is_header-dlv_type.
  ENDIF.
ENDMETHOD.

Listing 4.1: Methode „/scwm/if_ex_erp_int_conf~det_doctype“
